home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE1.ARC / (ббс лIST V2.0 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.4 KB  |  306 lines
  1. 100 GOTO380
  2. 110 RC=X:GOTO460
  3. 120 GOSUB470:A=VAL(ER$):A$=ES$:RETURN
  4. 130 A=PEEK(52033)*16:RETURN
  5. 140 P$=A$:GOTO440
  6. 150 GOSUB450:AN$="":ONPEEK(52033)GOTO210:IFL$=""THENRETURN
  7. 160 IFPL=0THENAN$=L$+"":RETURN
  8. 170 FORL=1TOLEN(L$):A$=MID$(L$,L,1):IFA$<"A"ORA$>"Z"THENAN$=AN$+A$:NEXT:RETURN
  9. 180 AN$=AN$+CHR$(ASC(A$)OR128):NEXT:RETURN
  10. 190 FI$=A$:GOTO650
  11. 200 L=1:PL=1:POKE45058,1:GOSUB150:POKE45058,0:A$=AN$:RETURN
  12. 210 POKE45058,0:GOTO640
  13. 220 P$="[139]":GOTO440
  14. 230 P$="[139][139]":GOTO440
  15. 240 CLOSE1:CLOSE2:CLOSE3:RETURN
  16. 250 OPEN2,D7,5,"@"+D7$+":"+A$+",S,W":RETURN
  17. 260 RETURN
  18. 270 P$=" (Y/[156][N]): ":IFATHENP$=" ([156][Y]/N): "
  19. 280 GOSUB440:L=1:GOSUB200:IFATHEN300
  20. 290 A=-(L$="Y"ORL$="[217]"):RETURN
  21. 300 A=-(L$="N"ORL$="[206]"):RETURN
  22. 310 P$="[193]REA TEMPORARILY CLOSED.":GOSUB440:GOTO640
  23. 320 GOTO640:REM NOT USED
  24. 330 P$="[150][211]ORRY.  [213]NATHORIZED COMMAND.":GOSUB440:GOTO640
  25. 340 P$="[147] ":GOSUB440
  26. 350 FI$=A$:GOTO680
  27. 360 GOTO190
  28. 370 OPEN2,D7,5,D7$+":"+A$:RETURN
  29. 380 POKE152,PEEK(251)
  30. 390 GOTO700
  31. 400 :
  32. 410 :REM START OF USER JUMP TABLE.
  33. 420 :
  34. 430 GOTO900 :REM SEND P$+CR OUT.
  35. 440 GOTO910 :REM SEND P$ OUT.
  36. 450 GOTO950:REM GET L$ FROM MODEM.
  37. 460 B=D7%:GOTO1520:REM SEND 'P' TO REL.
  38. 470 B=D7%:GOTO1050:REM READ ERR CHANNEL.
  39. 480 GOTO1070:REM READ SYSTEM CLOCK.
  40. 490 GOTO1130:REM DISPLAY USER ONLINE.
  41. 500 GOTO1150:REM REMOTE SYSOP MENU.
  42. 510 GOTO1310:REM DISPLAY DIR.
  43. 520 GOTO1500:REM BREAK RC INTO LO/HI.
  44. 530 GOTO1550:REM UPDATE (USER LOG).
  45. 540 GOTO1560:REM EMPTY UL$.
  46. 550 GOTO1570:REM GET U$() FROM DISK.
  47. 560 GOTO1580:REM GET N$() FROM DISK.
  48. 570 GOTO1590:REM SEND U$() TO DISK.
  49. 580 GOTO1600:REM SEND N$() TO DISK.
  50. 590 GOTO1620:REM FIND DV,DR$ IN DR%().
  51. 600 GOTO1630:REM FIND DV,DR$
  52. 610 GOTO1640:REM INCREMENT DV,DR$.
  53. 620 GOTO1700:REM HANG UP PHONE.
  54. 630 GOTO1760:REM FIND TIME CONNECTED.
  55. 640 GOTO1920:REM RETURN TO BBS.
  56. 650 GOTO1930:REM LOAD NEXT MODULE.
  57. 660 GOTO1810:REM GET SC() FROM DISK.
  58. 670 GOTO1890:REM SEND SC() TO DISK.
  59. 680 GOTO1790:REM SEND SEQ OUT.
  60. 690 :
  61. 700 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  62. 710 DIMU$(15),N$(15),DR%(7):DR$="0"
  63. 720 GOSUB730:GOTO780
  64. 730 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN750
  65. 740 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  66. 750 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  67. 760 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  68. 770 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  69. 780 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1990
  70. 790 IFA$="[133]"THENSY=SY+1:GOSUB1150:SY=SY-1:RETURN
  71. 800 IFA$<>"[134]"THEN830
  72. 810 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB440:SYS52012:CD=PEEK(52033)
  73. 820 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB430
  74. 830 IFA$="[140]"THENCD=1:RETURN
  75. 840 IFL<>65535THENRETURN
  76. 850 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  77. 860 CD=1:UL$="":RETURN
  78. 870 IFA$=""ORZ$=""THENGOSUB890
  79. 880 RETURN
  80. 890 POKESI+4,21:POKESI+4,20:RETURN
  81. 900 P$=P$+"[139]"
  82. 910 IFL=55THENPRINT#4,P$;:RETURN
  83. 920 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  84. 930 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  85. 940 RETURN
  86. 950 GOSUB1760:IFVAL(U$(14))<COTHEN990
  87. 960 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  88. 970 L$="TREDES 1.01SSR DESCTIPTIONRIPTION THA ":SYS52003,L$:CD=PEEK(52033)
  89. 980 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB790:RETURN
  90. 990 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB430
  91. 1000 GOTO640
  92. 1010 GOSUB1510:AA=RF:GOSUB1620
  93. 1020 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB1050:NEXT
  94. 1030 GOSUB1050:IFER$<"20"ORER$="50"THENRETURN
  95. 1040 PRINT"[197]RROR IN [210][197][204] FILE!":GOSUB1700:STOP
  96. 1050 ES$="":GOSUB1060:ER$=LEFT$(ES$,2):RETURN
  97. 1060 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO1060:RETURN
  98. 1070 T1$="11:32:54.3 PM":SYS51982,T1$:TM$=T1$+""
  99. 1080 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  100. 1090 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO1120
  101. 1100 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  102. 1110 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  103. 1120 DA$=M$+STR$(DT):RETURN
  104. 1130 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB1760
  105. 1140 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  106. 1150 D8=D7:DR$=D7$
  107. 1160 P$=" [147]":GOSUB430
  108. 1170 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB430
  109. 1180 P$="$ - [196]IRECTORY":GOSUB430
  110. 1190 P$="@ - [196]OS COMMANDS":GOSUB430
  111. 1200 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB430
  112. 1210 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB440:L=1:GOSUB450:IFCDTHENRETURN
  113. 1220 IFL$=""THENRETURN
  114. 1230 GOSUB1550:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  115. 1240 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1310,1640
  116. 1250 IFL$="?"THEN1160
  117. 1260 IFL$<>"@"THEN1210
  118. 1270 P$=F$+">":GOSUB440:L=39:GOSUB450:IFCDTHENRETURN
  119. 1280 B=D8-8:IFL$=""THENGOSUB1050:P$=F$+ES$:GOSUB430:GOTO1210
  120. 1290 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  121. 1300 GOTO1210
  122. 1310 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB440:L=16:GOSUB450:FI$=L$+""
  123. 1320 IFFI$=""THENFI$="*"
  124. 1330 P$=F$:GOSUB430:OPEN1,D8,0,"$"+DR$+":"+FI$
  125. 1340 GOSUB1050:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB430:RETURN
  126. 1350 GET#1,A$:GET#1,A$
  127. 1360 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  128. 1370 GET#1,LO$:GET#1,HI$
  129. 1380 LO$=LO$+N$:HI$=HI$+N$
  130. 1390 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  131. 1400 GET#1,A$:IFA$=""THEN1440
  132. 1410 GET#5,Z$:IFZ$=""THENGETZ$
  133. 1420 IFZ$=" "THENCLOSE1:RETURN
  134. 1430 P$=P$+A$:GOTO1400
  135. 1440 IFECANDMID$(P$,8,1)="("THEN1360
  136. 1450 GOSUB430:IFA$=" "THENCLOSE1:RETURN
  137. 1460 GOTO1360
  138. 1470 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  139. 1480 GOSUB1470:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  140. 1490 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1470:RETURN
  141. 1500 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  142. 1510 GOSUB1500:R1=LO:R2=HI:RETURN
  143. 1520 GOSUB1510:GOTO1020
  144. 1530 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  145. 1540 AA=VAL(N$(3)):RETURN
  146. 1550 IFLEN(UL$)<230THENRETURN
  147. 1560 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  148. 1570 GOSUB1580:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  149. 1580 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  150. 1590 FORI=1TO15:N$(I)=U$(I):NEXT
  151. 1600 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  152. 1610 PRINT#3,N$(0):RC=1:GOSUB1010:RETURN
  153. 1620 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  154. 1630 GOSUB1620:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  155. 1640 IFDR$="0"THENGOSUB1620:IFDR$="1"THENRETURN
  156. 1650 AA=AA+1:IFAA>15THENAA=8
  157. 1660 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1650
  158. 1670 IFA1AND32ORSYTHEN1690
  159. 1680 GOSUB1620:IFDR%(B)AND64THEN1650
  160. 1690 D8=AA:DR$="0":RETURN
  161. 1700 ON(MT%-1)GOTO1710,1720,1740,1750,1480,1480
  162. 1710 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  163. 1720 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  164. 1730 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  165. 1740 POKEB2,38:POKEB1,38:RETURN
  166. 1750 POKEB1,PEEK(B1)OR32:RETURN
  167. 1760 GOSUB1070:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  168. 1770 IFLH=12ANDC2THENCO=ABS(CO-720)
  169. 1780 RETURN
  170. 1790 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB470:IFER$>"01"THENCLOSE1:RETURN
  171. 1800 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  172. 1810 OPEN3,8,3,"0:(SCORES)":GOSUB470:IFER$>"01"THENCLOSE3:RETURN
  173. 1820 RC=R:GOSUB1500:B=0:GOSUB1020:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1840
  174. 1830 INPUT#3,SC
  175. 1840 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  176. 1850 IFI>SCTHENDIMSC(I):GOTO1870
  177. 1860 DIMSC(SC)
  178. 1870 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  179. 1880 RETURN
  180. 1890 OPEN3,8,3,"0:(SCORES)":GOSUB470:IFER$>"01"THENCLOSE3:RETURN
  181. 1900 RC=R:GOSUB1500:B=0:GOSUB1020:SC$=STR$(SC)+F$:FORT=1TOSC
  182. 1910 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB1020:CLOSE3:RETURN
  183. 1920 FI$="(ST/R 3.?)":DV=D5
  184. 1930 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB1630:FORT=1TO15
  185. 1940 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  186. 1950 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  187. 1960 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32
  188. 1970 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  189. 1980 POKE631,131:POKE198,1:NEW
  190. 1990 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  191. 2000 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  192. 2010 CLOSE1:GOSUB1530:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  193. 2020 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8
  194. 2030 P=51994
  195. 2040 A$="[147]\N6":SYSP,A$:IFPEEK(52033)THENGOSUB620:GOTO640
  196. 2050 A$="[159]    [182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181][139]":SYSP,A$
  197. 2060 A$="[159]    [182][156]  [210]OBOTECH [146] [194][194][211] [204]IST [205]ENU [159][181][139]":SYSP,A$
  198. 2070 A$="[159]    [182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181][139][139]":SYSP,A$
  199. 2080 A$="[139][150]1. [153][195]OMMODORE/[193]MIGA [194][194][211]'S[139][150]2. [153][201][194][205] [194][194][211]'S[139]":SYSP
  200. 2090 A$="[150]3. [153][193]PPLE/[205]AC/[193]TARI [194][194][211]'S[139]":SYSP,A$
  201. 2092 A$="[150]4. [153][199]OOD [204]ONG [196]ISTANCE [194][194][211]'S[139][150]5. [153][209]UIT.[139][139][158][194][194][211]>":SYSP,A$:PL=1:GOSUB200
  202. 2100 SYSP,A$+"[139]":ONPEEK(52033)GOTO210:ONVAL(AN$)GOTO3090,3100,3110,3120,210
  203. 2110 GOTO2040
  204. 2120 A$="[139][150]1)[158] [193]DD A NUMBER TO THE LIST[139][150]2)[158] [214]IEW [194][194][211] [204]IST[139]":SYSP,A$
  205. 2130 A$="[150]3)[158] [193]NOTHER[139][150]4)[158] [209]UIT[139]":SYSP,A$
  206. 2140 ON-(AC<>65535)GOTO2150:A$="[150]5)[158] [210]ESTART [194][194][211] [204]IST[139]":SYSP,A$
  207. 2150 A$="[139][204][201][211][212]>":SYSP,A$:PL=1:GOSUB200:SYSP,A$+"[139]"
  208. 2160 ONPEEK(52033)GOTO210:ONVAL(AN$)GOTO2180,2710,2040,210,2970
  209. 2170 GOTO2040
  210. 2180 IFAC<RRTHEN2040
  211. 2190 A$="[139][139][154][194][194][211] [206]AME (35 CHARS MAX)[139]":SYSP,A$
  212. 2200 A$="        1........10........20.......30[139]":SYSP,A$
  213. 2210 A$="[206]AME -=>":SYSP,A$:PL=.:L=30:GOSUB150:IFAN$=""THEN2040
  214. 2220 A$="[139][211]CANNING FOR DUPLICATION....":SYSP,A$:B0$=AN$
  215. 2230 CLOSE1:OPEN1,D7,8,D7$+":"+TR$+",S,R":GOSUB120
  216. 2240 IFATHENQQ=1:CLOSE1:GOTO2280
  217. 2250 QQ=.:INPUT#1,Q1$:ON-(ST>64)GOTO2280:INPUT#1,A$,A$,A$,A$,A$,A$,A$,A$,A$
  218. 2260 IFQ1$=AN$THENCLOSE1:A$="[139][194][194][211] IS USED....":SYSP,A$:GOTO2190
  219. 2270 GOTO2250
  220. 2280 Q1$="":CLOSE1:
  221. 2290 A$="[139][139][159][197]NTER THE PHONE NUMBER[139]":SYSP,A$
  222. 2300 A$="        [216][216][216]-[216][216][216]-[216][216][216][216][139]":SYSP,A$
  223. 2310 A$="[208]HONE-=>":SYSP,A$:PL=.:L=12:GOSUB150:L=40
  224. 2320 IFMID$(AN$,4,1)<>"-"ORMID$(AN$,D7,1)<>"-"THEN3010
  225. 2330 FORX=1TO12:ON-(X=4ORX=8)GOTO2350:A$=MID$(AN$,X,1)
  226. 2340 IFA$<"0"ORA$>"9"THEN3010
  227. 2350 NEXTX:B1$="("+LEFT$(AN$,3)+")/"+RIGHT$(AN$,8)
  228. 2360 A$="[139][159][197]NTER A 76 CHAR DESCRIPTION:[139]-=>":SYSP,A$:L=76:PL=.:GOSUB150
  229. 2370 IFAN$=""THENAN$="[206]ONE"
  230. 2380 B2$="("+AN$+")":L=30
  231. 2390 A$="[139][155][201]S "+B0$+"[139][155]24 [200]OURS?":SYSP,A$:A=.:GOSUB270:IFA=.THENA$="[206]O[139]":GOTO3020
  232. 2400 A$="[217]ES[139]":SYSP,A$:B3$="[217]ES":B4$="0"
  233. 2410 A$="[139][150][196]OES "+B0$+"[139][150][211]UPPORT [195]OMMODORE?":SYSP,A$:A=.:GOSUB270
  234. 2420 IFA=.THENA$="[206]O[139]":SYSP,A$:B5$="[206]O":GOTO2440
  235. 2430 A$="[217]ES[139]":SYSP,A$:B5$="[217]ES"
  236. 2440 A$="[139][154][196]OES "+B0$+"[139][154][200]AVE [213]/[196]'S?":SYSP,A$:A=.:GOSUB270:A$="[217]ES"
  237. 2450 IFA=.THENA$="[206]O"
  238. 2460 SYSP,A$:B6$=A$
  239. 2470 A$="[139][139][159][215]HAT [211]OFTWARE ARE YOU RUNNING?[139]-=>":L=25:SYSP,A$
  240. 2480 PL=.:GOSUB150:IFAN$=""THEN2470
  241. 2490 B7$=AN$:A$="[139][159][200]OW MANY MEGS?[139]-=>":SYSP,A$:PL=.:L=10:GOSUB150
  242. 2495 IFAN$=""THENAN$="0"
  243. 2500 B8$=AN$:A$="[139][159][205]AX [194]AUD [210]ATE:[139]-=>":SYSP,A$:PL=.:L=5:GOSUB150
  244. 2510 IFAN$=""THENAN$="1200"
  245. 2520 B9$=AN$:A$="[147][159][194][194][211] [206]AME :"+B0$+"[139]":SYSP,A$
  246. 2530 A$="[159][208]HONE #  :"+B1$+"[139]":SYSP,A$
  247. 2540 A$="[159][196]ESC     :"+B2$+"[139]":SYSP,A$
  248. 2550 A$="[159][205]AX [194]AUD :"+B9$+"[139]":SYSP,A$
  249. 2560 A$="[159]24 [200]RS   :"+B3$+"[139]":SYSP,A$:IFB3$<>"[206]O"THEN2580
  250. 2570 A$="[150][200]OURS    :"+B4$+"[139]":SYSP,A$
  251. 2580 A$="[159][213]/[196]'S   [160]:"+B5$+"[139]":SYSP,A$
  252. 2590 A$="[159][195]=[211]UPPORT:"+B6$+"[139]":SYSP,A$
  253. 2600 A$="[159][211]OFTWARE :"+B7$+"[139]":SYSP,A$
  254. 2610 A$="[159][205]EGS     :"+B8$+"[139]":SYSP,A$
  255. 2620 A$="[139][154][201]S THIS CORRECT?":SYSP,A$:GOSUB200:A$="[217]ES[139][139]":IFAN$<>"[217]"THENA$="[206]O[139][139]"
  256. 2630 SYSP,A$:IFAN$<>"[217]"THEN2190
  257. 2640 CLOSE1:OPEN1,D7,8,D7$+":"+TR$:GOSUB120
  258. 2650 IFATHENCLOSE1:A$="W":GOTO2670
  259. 2660 CLOSE1:A$="A"
  260. 2670 OPEN1,D7,8,D7$+":"+TR$+",S,"+A$
  261. 2680 QQ$=CHR$(13):A$="[211]AVING....":SYSP,A$
  262. 2690 PRINT#1,B0$:PRINT#1,B1$:PRINT#1,B2$:PRINT#1,B9$:PRINT#1,B3$:PRINT#1,B4$
  263. 2700 PRINT#1,B5$:PRINT#1,B6$:PRINT#1,B7$:PRINT#1,B8$:CLOSE1:GOTO2040
  264. 2710 A$="[139][150][194])[158]AUD[139][150][193])[158]REA CODE[139][150][195])[158]OMPLETE LISTING[139][139][159][195]OMMAND:":SYSP,A$:PL=1
  265. 2720 GOSUB150:ON-(AN$="[194]")-(AN$="[193]")*2-(AN$="[195]")*3-(AN$="")*4GOTO2730,2750,2770,2040
  266. 2730 A$="[139][159][197]NTER [194]AUD [210]ATE:":SYSP,A$:L=6:PL=.:GOSUB150:IFAN$=""THEN2040
  267. 2740 Q1$="[194]AUD [210]ATE:"+AN$:Q2$=AN$:GOTO2780
  268. 2750 A$="[139][159][197]NTER [193]REA [195]ODE:":SYSP,A$:L=3:PL=.:GOSUB150:IFAN$=""THEN2040
  269. 2760 Q1$="[193]REA [195]ODE:("+AN$+")":Q2$=AN$:GOTO2780
  270. 2770 Q1$="([206]O [211]PECIFICS)":Q2$=""
  271. 2780 A$="[147][211]EARCHING FOR "+Q1$+"[139][139]":SYSP,A$:CLOSE1:
  272. 2790 OPEN1,D7,8,D7$+":"+TR$+",S,R":GOSUB120
  273. 2800 IFATHENCLOSE1:A$="[139][139][204]IST [197]MPTY!![139][139]\W2":SYSP,A$:GOTO2040
  274. 2810 INPUT#1,B0$:IFST>64THENCLOSE1:GOTO2960
  275. 2820 INPUT#1,B1$,B2$,B3$,B4$,B5$,B6$,B7$,B8$,B9$:IFQ2$=""THEN2850
  276. 2830 IFLEFT$(Q1$,1)="[193]"THEN3050
  277. 2840 IFLEFT$(Q1$,1)="[194]"THEN3070
  278. 2850 A$="[139][159][194][194][211] [206]AME    :"+B0$+"[139]":SYSP,A$
  279. 2860 A$="[159][208]HONE [206]UMBER:"+B1$+"[139]":SYSP,A$
  280. 2870 A$="[159][196]ESCRIPTION :[139]"+B2$+"[139]":SYSP,A$
  281. 2880 A$="[159][205]AX [194]AUD    :"+B3$+"[139]":SYSP,A$
  282. 2890 A$="[159]24 [200]OURS    :"+B4$+"[139]":SYSP,A$:IFLEFT$(B4$,1)<>"[206]"THEN2910
  283. 2900 A$="[150][200]OURS       :"+B5$+"[139]":SYSP,A$
  284. 2910 A$="[159][213]/[196] [211]ECTION :"+B6$+"[139]":SYSP,A$
  285. 2920 A$="[159][195]= [211]UPPORT  :"+B7$+"[139]":SYSP,A$
  286. 2930 A$="[159][194][194][211] [211]OFTWARE:"+B8$+"[139]":SYSP,A$
  287. 2940 A$="[159][205]EGABYTES   :"+B9$+"[139]":SYSP,A$
  288. 2950 A$="[139][159][[158][203]EY[159]]\G1\H5":SYSP,A$:GOTO2810
  289. 2960 A$="[159][139][139][197]ND OF LIST![139][208]RESS [158][210][197][212][213][210][206][146]:\G1":SYSP,A$:CLOSE1:GOTO2040
  290. 2970 ON-(AC<65535)GOTO2040:A$="[139][139][159][211]URE?":SYSP,A$:GOSUB200:IFAN$="[217]"THEN2990
  291. 2980 A$="[206]O[139][139]":SYSP,A$:GOTO2040
  292. 2990 A$="[217]ES[139][139]":SYSP,A$:A$="[210]ESTARTING...":SYSP,A$:CLOSE1:
  293. 3000 PRINT#15-D7%,"S"+D7$+":"+TR$:CLOSE1:GOTO2040
  294. 3010 A$="[139][201]NCORRECT OR MISSING PHONE NUMBER![139]":SYSP,A$:GOTO2290
  295. 3020 A$="[139][139][150][197]NTER HOURS ([197]X:4 [193][205]-4 [208][205])[139]-=>":SYSP,A$:PL=1:GOSUB150
  296. 3030 IFAN$=""THEN3020
  297. 3040 B3$="[206]O":B4$=AN$:GOTO2410
  298. 3050 IFMID$(B1$,2,3)=Q2$THEN2850
  299. 3060 GOTO2810
  300. 3070 IFB3$=Q2$THEN2850
  301. 3080 GOTO2810
  302. 3090 TR$="(BBS LIST0)":GOTO2120
  303. 3100 TR$="(BBS LIST1)":GOTO2120
  304. 3110 TR$="(BBS LIST2)":GOTO2120
  305. 3120 TR$="(BBS LIST3)":GOTO2120
  306.